Option Explicit
Sub D_Sample011()
    Dim myRng1 As Range
    Dim myRng2 As Range
    Dim myCell As Range
    Dim myBrd  As Border
    Dim i      As Long
    Set myRng1 = Range("A1:A4")			'ƻsӷxsd
    Set myRng2 = Range("C1")			'ƻsؼxs
    With myRng1
        Set myRng2 = myRng2.Resize( _
        RowSize:=.Rows.Count, _
        ColumnSize:=.Columns.Count)
        'ǳƨ즹
        For Each myCell In .Cells
            For i = xlDiagonalDown To xlEdgeRight
                Set myBrd = myRng2.Range(myCell.Address).Borders(i)
                With myCell.Borders(i)
                    myBrd.LineStyle = .LineStyle
                    myBrd.Weight = .Weight
                    myBrd.ColorIndex = .ColorIndex
                End With
            Next
        Next
    End With
    Set myBrd = Nothing					'
    Set myCell = Nothing
    Set myRng1 = Nothing
    Set myRng2 = Nothing
End Sub

